100 IFPEEK(49197)<>53THENLOAD"BIN.SCREENSTORE",8,1
1000 SYS49158:POKE53280,0:POKE53281,6:X=5
1020 PRINT"[147]   SCREEN SAVER   (C) M.MEDHURST 1990   [146]":PRINT"[154]SCREEN";PEEK(2)+1
1040 PRINT"":PRINT"      THIS UTILITY ALLOWS YOU TO STORE    ANYTHING";
1050 PRINT" ON THE TEXT SCREEN INCLUDING COLOUR. ";
1060 PRINT"UP TO 8 SCREENS CAN BE STORED INTHE HIDDEN RAM UNDER THE ";
1070 PRINT"BASIC & KERNAL ROMS..":GOSUB1640:PRINT"[147]SCREEN";PEEK(2)+1
1100 PRINT" SYS49158[146][158] SETS THE SCREEN COUNTER TO 0.":PRINT
1110 PRINT" SYS49152[146][158] STORES THE CURRENT SCREEN AND COLOUR AND INCREASES ";
1120 PRINT"THE SCREEN COUNTER BY ONE."
1130 PRINT" SYS49155[146][158] RECALLS THE LAST SCREEN AND   DECREASES THE SCREEN";
1140 PRINT" COUNTER BY ONE.":GOSUB1640:PRINT"[147]SCREEN";PEEK(2)+1
1170 PRINT"[155] SCREENS ARE STORED AND RECALLED ON A   LAST IN FIRST OUT BASIS."
1180 PRINT" IF THE SCREEN COUNTER IS ZERO AND A    SYS49155[146][155] CALL IS MADE ";
1190 PRINT"A NO SCREEN ERROR[146][155] WILL BE DISPLAYED AND THE PROGRAM WILL  STOP."
1200 PRINT" IF THE SCREEN COUNTER IS EIGHT AND A    SYS49152[146][155] CALL IS MADE "
1210 PRINT"A SCREEN FULL ERROR[146][155] WILL BE DISPLAYED   AND THE ";
1220 PRINT"PROGRAM WILL STOP.":GOSUB1640:PRINT"[147]SCREEN";PEEK(2)+1
1250 PRINT"[159]  THE NUMBER OF SCREENS STORED CAN BE   CHECKED BY PEEK(2)[159] "
1260 PRINT"ANY SCREEN ONCE STORED CAN BE RECALLED   AT RANDOM BY FIRST POKEING";
1270 PRINT" LOCATION 2  WITH THE SCREEN NUMBER.";:PRINT" (1-8)"
1290 PRINT"EG:- POKE2,5[159]  FOLLOWED BY SYS49155[146][159] WILL  RECALL SCREEN 5."
1300 GOSUB1640:PRINT"[147]SCREEN";PEEK(2)+1:PRINT"[176][192][192][192][192][192][192][192][192][192][192][192][192][174]":PRINT"[221]OVERLAPPING [221]"
1340 PRINT"[221]MENU'S CAN  [221]":PRINT"[221]BE PRINTED  [221]":PRINT"[221]AND RESTORED[221]"
1370 PRINT"[173][192][192][192][192][192][192][192][192][192][192][192][192][189]":GOSUB1640:PRINT"SCREEN";PEEK(2)+1:PRINT"[159][176][192][192][192][192][192][192][192][192][192][192][192][192][174]"
1410 PRINT"[221]OVERLAPPING [221]":PRINT"[221]MENU'S CAN  [221]":PRINT"[221]BE PRINTED  [221]"
1440 PRINT"[221]AND RESTORED[221]":PRINT"[173][192][192][192][192][192][192][192][192][192][192][192][192][189]":GOSUB1640
1470 PRINT"SCREEN";PEEK(2)+1:PRINT"[158][176][192][192][192][192][192][192][192][192][192][192][192][192][174]"
1490 PRINT"[221]OVERLAPPING [221]":PRINT"[221]MENU'S CAN  [221]"
1510 PRINT"[221]BE PRINTED  [221]":PRINT"[221]AND RESTORED[221]"
1530 PRINT"[173][192][192][192][192][192][192][192][192][192][192][192][192][189]":GOSUB1640:PRINT"[147]SCREEN";PEEK(2)+1
1560 PRINT"AND NOW TO RESTORE THE SCREENS":GOSUB1640:PRINT"[147]":FORDE=0TO1000:NEXTDE:PRINT"[147]"
1590 FORW=1TO8:SYS49155:FORDE=0TO1000:NEXTDE:NEXTW:PRINT"[147]NOW RANDOM SCREENS":FORDE=0TO1000:NEXTDE
1610 FORJ=0TO40:W=INT(8*RND(1)+1):POKE2,W:SYS49155:FORDE=0TO150:NEXTDE:NEXTJ:FORJ=0TO40
1620 W=INT(8*RND(1)+1):POKE2,W:SYS49155:NEXTJ:PRINT"[147]END OF DEMO":END
1640 POKE198,0:PRINT"[154]":PRINTTAB(3)"PRESS RETURN[146]"
1650 GETK$:IFK$<>CHR$(13)THEN1650
1660 SYS49152:RETURN